(caar, cadr, cdar, cddr): Definitiosn deleted.

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 720e56fa439739ec96068bce1d924a2cb4abcad5..72320d57e30ef61eddf718e6c3d9561c0988361a 100644 (file)
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -403,22 +403,6 @@ SEQ, this is like `mapcar'.  With several, it is like the Common Lisp
   "Return the tenth element of the list LIST."
   (nth 9 x))
 
-(defun caar (x)
-  "Return the `car' of the `car' of X."
-  (car (car x)))
-
-(defun cadr (x)
-  "Return the `car' of the `cdr' of X."
-  (car (cdr x)))
-
-(defun cdar (x)
-  "Return the `cdr' of the `car' of X."
-  (cdr (car x)))
-
-(defun cddr (x)
-  "Return the `cdr' of the `cdr' of X."
-  (cdr (cdr x)))
-
 (defun caaar (x)
   "Return the `car' of the `car' of the `car' of X."
   (car (car (car x))))